Top 10k strings from Video Basic - Issue 20 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 8xxxxxxxx8
5 CA=CA-X*Y:
5 *
4 A$="PON EN MARCHA LA GRABADORA":
4 "4";"ESTA BIEN ESCRITO ? (S/N)";
4 "23606",z:
4 "10",z;" PARA LA GRABADORA ":
3 t$=" PULSA UNA TECLA PARA CONTINUAR "
3 t$(2)-48":
3 U;" ";N$;" "
3 "9",N;" ~|";
3 "8",N;A$(N-2
3 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
3 "10",N;" \]"
3 PASO A LA PARTE";
3 PARA LA GRABADORA
3
2 u;" ":
2 t$(3)-48":
2 b$=" ":
2 Via Indipendenza 88
2 SIGUIENTE"
2 LEE LOS UDG
2 HOMBRECILLO
2 ANTERIOR
2 ;" ""5""
2 ;" PARA LA GRABADORA ":
2 ,XX;" ";
2 "CUANTAS (0 - ";
2 "BIEN, "+N$+"
2 ";OP2;" OBREROS
2 "7355555222222222222222"(i),,:
2 "6";" SIGUIENTE"
2 "4E5");") ? ";X:
2 "30";" ";
2 "23617",Z:
2 "23296"+N,
2 "126-XL/2",
2 "10-a/2",U;
2 "(21-YP)*8-2":
2 SOFTIDEA (Como)
2 * * * *
2 Tel.031-240.959
2
1 y(n)=y(n+1
1 y$=" PULSA UNA TECLA PARA EMPEZAR!! ":
1 y$=" PULSA UNA TECLA PARA CONTINUAR ":
1 u;"I:VAR.CONTR. X:VAR.AUXIL.";
1 u;"EXACTO !":
1 u;" INTRODUCE <F> PARA TERMINAR",:
1 u;" ";
1 u+u,i;"A":
1 tina de impre-
1 t$=("Aqui la parte de C/M"
1 t$=" ":
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(3)-48",
1 t$(2)-48)*8+2":
1 t$(2)-48";
1 sion","215","RET","Vuelve","201"
1 play","205 1 22","LD A,(23560)","Teclea LASTK
1 p;" ":
1 p;" ":
1 p$="los temas de la leccion ":
1 p$="del Sistema Operativo ":
1 p$="Y para terminar... ":
1 p$="Viaje al interior ":
1 p$="VIDEOTEST: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOHARDWARE: ":
1 p$="VIDEOFIN : ":
1 p$="VIDEOBREAK: ":
1 p$="VIDEOBASIC-LA PROGRAMACION: ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="Operativo ":
1 p$="Juego de adivinanzas sobre ":
1 p$="Hasta pronto ":
1 p$="El rey del mueble ":
1 p$="El ordenador del futuro ":
1 p$="Aprovechemonos del Sistema ":
1 n;" ":
1 l$="EL SUPERCONDUCTOR ESTA CONSTI-TUIDO POR UNA ALEACION ESPE-CIAL, CAPAZ DE PROPORCIONARMEJORES PRESTACIONES A UNATEMPERATURA DE -150 C."
1 j)+("...esta es la traduccion"
1 drive printer":
1 copy=23760
1 canal de dis-
1 b$=b$+(w$(j)
1 attr=23813
1 a;" ":
1 a$="LA PROGRAMACION":
1 a$=" ":
1 __XXx|z{yzzX
1 __XXxxxxxxxX
1 \\XXxzy|{zzX
1 \\XXxxxxxxzX
1 \\XXxxxxxxxX
1 Z,Z;"BIEN, "+N$,,,,"AHORA INTRODUCE RUN Y OBSERVACOMO CADA TECLA QUE PULSES SEIMPRIME SIN NECESIDAD DE USAR<PRINT>",,:
1 Z,Z;" 62,2,205,1,22,58,8,92,215,201",
1 YY,XX;" ";
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
1 Y$="*PULSA UNA TECLA PARA CONTINUAR *"
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 Y para...","62 2","CALL 1601","...activar el
1 XX_XXXXXXXXX
1 X<21)+(30-X)*(X>20)"):
1 X,Y;T$(N):
1 VISUALIZACION BLOQUE
1 VIDEOTEST
1 VIDEOLIST
1 VIDEOHAR '
1 VIDEOEND
1 VIDEOBREAK
1 VIDEOBASIC N.20
1 U;"OTRA VEZ..":
1 U;"OTRA VEZ !":
1 U;"ESTA ES LA INSTRUCCION EXACTA:":
1 U;"ERROR !":
1 U;" Acceso al Sistema Operativo ":
1 U+U,XP;A$;
1 TV=TV+(T(X)>
1 TR1=TR1-(-OP+MS+SC)*O*
1 TR1=O*OP2-(OP2/
1 TEMPERATURA IDEAL PARA UN SU-PERCONDUCTOR -150
1 TAB.LENG1 I
1 TA=TA*(TA>
1 TA.TEST
1 T(X)=T(X)-(T(X)>0
1 T(X)=T(X)+
1 T$="QUIZAS SEA MEJOR QUE VUELVAS ALEER EL PROGRAMA, Y LO INTEN-TES DE NUEVO.":
1 T$="PRUEBA AHORA A ESCRIBIR LASINSTRUCCIONES QUE TE IRE PI-
1 T$="HE AQUI ALGUNOS SECRETOS QUENO SE EXPLICAN EN EL MANUAL:SEGURAMENTE TE SERAN UTILES.":
1 T$="ELIGE, "+N$:
1 T$="BIEN, "+N$:
1 T$="...he aqui como se realiza elproceso...":
1 T$=" ELIGE, "+n$+":":
1 T$=" ELIGE, {:":
1 T$=" ELIGE, "+n$+":":
1 SON MAS POTENTES LOS ORD. AVALVULAS O LOS DOMESTICOS ? DOMESTICOS
1 SON MAS LENTOS LOS ORDENADORESCON SUPERCONDUCTORES? SI
1 SOFTIDEA (Como)
1 SE USA UN CODIGO PARA MARCAREL FINAL DE UN PROGRAMA? NO
1 SE HAN CONFECCIONADO YA ORDE-NADORES EN PARALELO ? NO
1 SCROLL=23828
1 S$=" ":
1 RUTINA MAQUINA DE ESCRIBIR
1 ROTULOS ROTATORIOS
1 REGISTRO DEL NOMBRE
1 QUE TIPO DE ENERGIA GENERA UNCHIP EN FUNCIONAMIENTO? TERMICA
1 QUE COMPONENTE DETERMINO LAEVOLUCION DE LA INFORMATICA? TRANSISTOR
1 Puedes hacer entonces PRINTUSR 0, direccion en la que re-side la rutina de inicializa-cion general."
1 Podras usarlos,por ejemplo con
1 PROGRAMA
1 PORTADA S
1 PANTALLA
1 P=P-(P>M):
1 P$="VIDEOLIST":
1 P$="VIDEOEND":
1 P$="PERO EMPIEZA PARA TI.... ":
1 P$="AQUI FINALIZA VIDEOBASIC ":
1 O,i;A$(i-2
1 N$=N$+" ":
1 M-15352-1985
1 La direccion inicial es dadapor:PEEK23635+256*PEEK23636+5."
1 LP8(("(I)-
1 LETREROS ROTATORIOS
1 LETREROS ENTRANTES
1 LET B=INKEY$"
1 LENGUAJE2
1 LENGUAJE1 |
1 L$="SIN EMBARGO LAS OPTIMAS PRES-TACIONES DE LOS CHIPS CON SU-PERCONDUCTORES ESTAN LOGRANDOPOLARIZAR LA ATENCION DE LOSINVESTIGADORES."
1 L$="QUIERES VER DE NUEVO ESTA LEC-CION (S/N) ?":
1 L$="POR LO TANTO, UN MICROPROCESA-DOR REALIZADO CON SUPERCONDUC-TORES SERIA MUCHO MAS RAPIDO,LO QUE PERMITIRIA ELIMINAR AL-GUNAS DE SUS ACTUALES LIMITA-CIONES."
1 L$="OTRO CAMINO SEGUIDO PARA AL-CANZAR MAYORES VELOCIDADES ESEL DE LAS CPU EN PARALELO. VA-RIOS MICROPROCESADORES TRABA-JAN SIMULTANEAMENTE DISTINTASPARTES DEL MISMO PROGRAMA."
1 L$="LA MAXIMA VELOCIDAD OPERATIVADE UN MICROPROCESADOR ESTA LI-MITADA PRECISAMENTE POR ELTIEMPO DE CONMUTACION DE SUSMILLARES DE COMPONENTES INTER-NOS."
1 L$="ESTO IMPLICA UNA TECNOLOGIAMUY COSTOSA PARA MANTENER UNATEMPERATURA TAN BAJA,YA QUE SENECESITAN UNAS INSTALACIONESESPECIALES."
1 L$="EL TIEMPO DE CONMUTACION RE-PRESENTA LA CAPACIDAD DE UNCOMPONENTE PARA CAMBIAR DE ES-TADO, ES DECIR, PARA PASAR DELVALOR ""1"" AL VALOR ""0""."
1 L$="EL PROBLEMA DE LOS ORDENADO-RES EN PARALELO ES EL SOFT-WARE. LAS INVESTIGACIONES EN-TONCES SE DIRIGIRAN HACIA NUE-VAS INSTRUCCIONES Y SISTEMASOPERATIVOS."
1 L$="CON TODA SEGURIDAD LOS ORDENA-DORES DEL FUTURO TENDRAN COM-PONENTES SUPERCONDUCTORES: ES-TOS ALCANZAN UN TIEMPO DE CON-MUTACION MUCHO MENOR QUE LOSNORMALES CIRCUITOS INTEGRADOS."
1 L$="BIEN "+N$+";":
1 JUEGO T
1 INGELEK JAKSON
1 I,X","049CIERRA I","<813","2950
1 I","04;LINEAS ","04<DATA ","#820","2;60
1 HEMOS VISTO ANTERIORMENTE, CO-MO EL SISTEMA OPERATIVO DEL<SPECTRUM> (Y DE LA MAYORIA DELOS ORDENADORES DOMESTICOS)ESTA CONSTITUIDO POR UN GRANNUMERO DE RUTINAS EN C/M IN-DISPENSABLES PARA UNA UTILIZA-CION PRACTICA DEL ORDENADOR.%%NORMALMENTE ES EL INTERPRETEBASIC QUIEN UTILIZA DICHAS RU-TINAS; DE TODOS MODOS NADA IM-PIDE AL PROGRAMADOR SUSTITUIRAL INTERPRETE PARA COMUNICARSEDIRECTAMENTE CON EL SISTEMAOPERATIVO.% %DEL MISMO MODO QUE EN EL BASICCON <GOSUB>, ES POSIBLE LLAMARA UNA RUTINA DEL SISTEMA OPE-RATIVO UTILIZANDO LA FUNCION<USR>, O EN UN PROGRAMA EN C/MCON UN <CALL> O <RST>. CUIDADOCON ESTE ULTIMO, YA QUE TIENEUN NUMERO LIMITADO DE DIREC-CIONES MUY IMPORTANTES.% % ASI <RST16> O <CALL0016> PRO-DUCEN EXACTAMENTE EL MISMO E-FECTO, LLAMANDO A LA RUTINAQUE SE ENCUENTRA EN LA DIREC-CION DE MEMORIA <16>, YA QUESI TERMINAN CON UN <RTS>, DE-VOLVERA EL CONTROL AL PROGRAMAPRINCIPAL.# #LO
1 HACEN FALTA CPU'S ESPECIALESPARA LOS ORD. EN PARALELO? SI
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
1 En lugar de usar LOAD .... usaMERGE ..."
1 EXISTEN ORDENADORES A VALVU-LAS ? SI
1 ESTO TE SERA MUY UTIL EN ELCASO DE QUE DESEES ESCRIBIRPROGRAMAS EN C/M QUE, NATURAL-MENTE, NO DISPONEN DE INSTRUC-CIONES DE ESTE TIPO.",""
1 ESTE PROGRAMA HA SERVIDO PARADEMOSTRAR COMO SE ACTUA DIREC-TAMENTE SOBRE EL SISTEMA OPE-RATIVO. DESPUES PODRAS PROFUN-DIZAR EN EL ESTUDIO DE ESTE A-PASIONANTE CAMPO."
1 ESCRITOS ENTRANTES
1 ESCRIBEREMOS AHORA UN PROGRAMAQUE ACCEDE DIRECTAMENTE ALSISTEMA OPERATIVO DEL SPEC-TRUM.",""
1 EL CAPITAL DE AYER ERA"'"DE VB
1 EJERCICIOS
1 De este modo pones a cero elarea reservada a la visualiza-cion de los mensajes del sis-tema. Por lo tanto, ten cuida-do con otros posibles errores!"
1 COMO SE LLAMA LA INVERSION DELESTADO DE UN COMPONENTE? CONMUTACION
1 COMIDASY VIAJES A MALLORCA
1 CL=CL*(SC>
1 CL=CL*(CL>0
1 CIONAL.",""
1 CC-AA,DD-BB,EE:
1 CAR/PROG
1 CAR/LIST
1 CAR/LENG2
1 CAR/LENG1
1 CAR/EJER
1 CAR TEST
1 CAR HARD
1 CAR END
1 CAR BREAK
1 CA=CA-S(X)*
1 CA=CA+CL*PS-OP*O*S-PV*
1 B$="------------"
1 B$","INTRODUCE EN <B$> UNA CADENA","LEIDA DESDE UNA <DATA>",""
1 AHORA INTENTA ESCRIBIR EL PRO-GRAMA EN BASE AL DIAGRAMA DEFLUJO.
1 ACUERDATE DE NUMERAR LAS LI-NEAS DE 10 EN 10 A PARTIR DE10."
1 AA,BB,CC,DD,EE:
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$="LA EPOCA DE LA INFORMATICA":
1 A$="FELIZ PROGRAMACION!":
1 A$="EL SISTEMA OPERATIVO":
1 A$=" ALGUNOS...TRUQUILLOS !":
1 A$=" ...RECAPITULANDO!":
1 A$(u+u)-48":
1 A$(u)-48":
1 > en modo grafico ypulsa <enter>."
1 ;N$;" ? (S/N)"
1 ;"y quita la alimentacion a tu";
1 ;"muy bien, enhorabuena!"
1 ;"ejemplos y ejercicios";
1 ;"Y PULSA <ENTER>":
1 ;"VIDEOBASIC.":
1 ;"VIDEOBASIC":
1 ;"TU PUNTUACION ES ";s;" SOBRE 20."
1 ;"SPECTRUM. Hasta siempre,";
1 ;"PRUEBA AHORA"
1 ;"PREGUNTA N. ";w
1 ;"PON EN MARCHA LA GRABADORA !":
1 ;"PARA MEJORAR, VUELVE A LEER";
1 ;"PARA LA GRABADORA ! ! ! ! ! ! !"'" "
1 ;"NO TE PUEDO AYUDAR":
1 ;"MUY BIEN ";n$;
1 ;"La respuesta correcta es:";
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"Guarda el casete en su caja";
1 ;"ESTA BIEN ESCRITO, ";
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN EL TECLADO";
1 ;"CAPITAL: ";
1 ;"- - - - - -"''':
1 ;"""";i$;""" esta equivocado."
1 ;" SIGUIENTE"
1 ;" PULSA UNA TECLA ":
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ";
1 ;" ":
1 ;" ":
1 ;" "
1 :::::::::::::::::::::::::::::::::::::::::
1 92,215,201"
1 9 = cod. <15>.
1 8xxx8xxxx8
1 88888888x8
1 888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888d
1 43 - FASE DE OUTPUT","COMO OBTENER EL RESULTADO ?",""
1 4 PARTE BASIC "
1 30009","047MEMORIZ.","#813"
1 30000","04CREPITE ","#813","2C90
1 3 = cod. <4>
1 29999","044INICIAL.","045BUCLE I","#823","2420
1 23688/2-U"
1 23688+x)>31"
1 22 - FASE INTERMEDIA ","PARA QUE SIRVE LA RUTINA C/M ?",""
1 21,31;""*""","IMPRIME UN ASTERISCO EN LA","ESQUINA INFERIOR DERECHA","DE LA PANTALLA.",""
1 205,1,22,58,8,
1 2 PREPARACION"
1 2 = cod. <6>
1 11 - FASE DE PREPARACION ","QUE ELEMENTOS NECESITAMOS ?",""
1 000000000000000000000000000000000000000000000000000000000000000000000000001111111111111021100000000000000211111111111112211000000000000002222222222222222110000000000000022222222222222221100000000000000000000000000000000000000666666666600000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888????????????????????????????????88888888888888888888888888888888888888888888888888888888888888888
1 0","04@EJECUTA ","04ARUT. C/M","#823","2@80
1 ...................................
1 -Mediante POKE, se sustituyenlos puntos con los codigos:
1 -J/A,ER+J/A*.7
1 -1","INICIALIZA UN BUCLE EN EL CUAL","<X> TOME LOS VALORES","9;8;7;6;5;4.",""
1 - Teclea <
1 - Pulsa 1 vez <cursor a la iz-quierda>;
1 - Colorea (ej.Modo extentido+4);
1 ,XX;" ":
1 ,O;"PARTE SIGUIENTE";
1 ,A;" ";
1 ,A;" ":
1 **AYUDA II TENTATIVA**
1 ***respuestas flash***
1 ***puntuacion***
1 ***pulsa tecla***
1 ***comentario final***
1 ***bloque principal ***
1 ***SOFTIDEA***COMO***
1 ***INPUT controlado***
1 ***CLS BAJO***
1 ***********************
1 );"......"
1 ));q$(q,65
1 )'" OBREROS QUE TRABAJAN EN EL BOSQUE."
1 (ultima tecla)","58 8 92","RST 10","Llama a la ru-
1 (TR1*(TR1>
1 (CA/Y);")?"'X:
1 (CA/Y);")? ";X:
1 (CA/Y);") ?"'X:
1 (CA/Y);") ? ";X:
1 (A$+"*1E6")*S(X)>CA
1 ((CA-CAG)*
1 ("1E6*"+A$)
1 ''''"QUIERES VOLVER A JUGAR (S/N) ?":
1 ''''"HOY LA LLUVIA IMPIDE TRABAJAR ALOS OBREROS EN EL BOSQUE,ASI QUESE VAN A CASA."'"ESTO LIMITA LA PRODUCCION.":
1 ''''"HAS HEREDADO DE UN AMIGO 100HECTAREAS DE TERRENO.":
1 ''''"EL REY DEL MUEBLE HA GANADO UNCONCURSO Y RECIBE 50 MILLONES ENPIEZAS DE ORO."'':
1 ''''" PON EN MARCHA LA GRABADORA ":
1 '''"UNA EXPLOSION HA CAUSADO LA BAJADE ";X'"OBREROS E IMPLICA UN GASTO DE"'"10 MILLONES EN REPARACIONES.":
1 '''"TU CAPITAL NO TE PERMITE MASANUNCIOS !!!"'':
1 '''"HOY HAY HUELGA."'"SE DETIENE LA ACTIVIDAD POR TAN-TO LOS CLIENTES SE SERVIRAN ENLA COMPETENCIA."
1 '''"HAY QUE RENOVAR LAS INSTALACIO-NES DE LA EMPRESA."'"EL GASTO ES DE 20 MILLONES.":
1 '''"EL OXIDO HA ESTROPEADO ";X'"MOTOSIERRAS....ESTAN PARA TIRAR-LAS.":
1 '''" estoy cargando ""VIDEOBREAK"" "'''''''':
1 ''"UNA EMPRESA ALEMANA REGALA ALREY DEL MUEBLE 50 MOTOSIERRAS.":
1 ''"PUEDES
1 ''"LA DEMANDA ES MAYOR QUE TUS PO-SIBILIDADES, TIENES QUE AUMENTARLA PRODUCCION, SI NO PERDERASCLIENTES.":
1 ''"HE AQUI EL RESUMEN DE LA ";G;"'"'"JORNADA:":
1 ''"ESTA NOCHE TE HAN ROBADO ";X;" TABLONES"
1 ''"EL PRECIO MEDIO DE UN SALON DELA COMPETENCIA CUESTA"''"VB
1 ''"CUANTO PAGAS POR UNA HORA DETRABAJO DE UN OBRERO?"'"EL MINIMO FIJADO POR EL SINDICA-TO ES DE 8.000 VB."
1 ''"COMO PUBLICIDAD SORTEAS
1 ''"AHORAS TIENES
1 ''"AHORA TIENES
1 ''"ADEMAS POSEES ";
1 ''" TV. # COSTE #NUM.#ADQUIS. #MILLON.#SPOT#NUEVOS"''
1 '"TVB 1.........80....";T(
1 '"PUEDES COMPRAR MAS HECTAREAS DEBOSQUE."'"UNA HECTAREA VALE 500.000 VB. UNOBRERO TRABAJA MEDIA HECTAREA DEBOSQUE."'"TU TIENES AHORA ";AC;" HECTAREAS Y ";
1 '"PRIMERO TENDRAS QUE CONTRATARPERSONAL."'"UN OBRERO PIDE 300.000 VB PORCONTRATO Y 8.000 VB POR HORA."'"Y ENCIMA HAY QUE PAGAR DIARIA-MENTE !!!"
1 '"EL CAPITAL ES AHORA"'"DE VB
1 '"DEBES AUMENTAR TU ACTIVIDAD PU-BLICITARIA E INFORMARTE DEL COS-TE DE LOS ANUNCIOS EN LAS TELE-VISIONES."
1 '"DEBES ADMINISTRAR TUS RECURSOS YLUCHAR CONTRA LA INFLACION, LACOMPETENCIA, LAS HUELGAS, ETC."''"TENDRAS QUE REALIZAR LA TOTALI-DAD DEL PROCESO DE FABRICACION."''"BUENA SUERTE !!!":
1 '"AHORA COMPRA HECTAREAS DE BOSQUEPARA OBTENER LA MATERIA PRIMA;CADA UNA CUESTA 500.000 VB. CADAOBRERO PUEDE TRABAJAR MEDIA HEC-TAREA."'"OBREROS QUE TRABAJEN EN EL BOS-QUE, TIENES ";OP/
1 "xg+xs/2",yg+ys*
1 "i*3+4",u;
1 "Y AHORA...UN REPASO GENERAL!VOLVEREMOS A VER ALGUNOS DELOS CAPITULOS MAS SIGNIFICATI-VOS DE LA TOTALIDAD DEL CURSO.",""
1 "VENTAS: ";CL;" SALONES"'"PRECIO DEL SALON: PTAS.";PS
1 "TVB 2.........90....";T(
1 "TU CAPITAL SON 1.000 MILLONES DEVB (UNIDAD MONETARIA DEL PAIS),Y POSEES ADEMAS UNA NAVE QUE SE-RA LA SEDE DE TU EMPRESA."
1 "TELEVB.........6....";T(
1 "TE GASTAS 50 MILLONES EN UN SIS-TEMA DE ALARMA."'''"TE QUEDAN ";TR;" TABLONES Y":
1 "Situa en el registro <A> delZ80 la tecla pulsada (LASTK).Ejecuta RST 10, es decir, unCALL a la rutina de impresiondel sistema operativo.",""
1 "RESPUESTA = ";
1 "REM RUTINA DE BUSQUEDA","<REM> NO TIENE MUCHA IMPORTAN-CIA A EFECTOS DE PROGRAMA,PEROEVITA TRABAJOSAS LABORES DEINTERPRETACION.",""
1 "RED 4.........20....";T(
1 "PRINT VAL""5-SQR VAL B$*X""","<VAL> ES UNA DE LAS FUNCIONESMAS CARACTERISTICAS. EN ELSPECTRUM, SU POTENCIA ES EX-CEP
1 "PRINT A$(7, TO 10)","LAS MATRICES SE USAN EN SUSTI-TUCION DE LOS ARCHIVOS. ESTAINSTRUCCION IMPRIME LOS PRIME-ROS 10 CARACTERES DEL ELEMEN-TO 7.",""
1 "PLOT A,B:DRAW X,Y","Y...NO TE OLVIDES DE LOS GRA-FICOS EN ALTA RESOLUCION!",""
1 "PLOT (22E5)"," X -->reg. B Y--> reg. C","Es identica a <PLOT> en BASIC.El punto se situara en lascoordenadas B y C."
1 "OUTPUT DE 1 CARATER (10)"," Codigo caracter ---> A","Envia el caracter presente enel registro <A> al canal acti-vo en ese momento."
1 "OBREROS: ";OP'"HORAS POR OBRERO: ";O'"SALARIO OBRERO: VB ";S'"GASTOS VARIOS: VB ";L'"TABLONES PRODUCIDOS: ";TR1'"TABLONES EN ALMACEN: ";TR'"GASTOS COMIDA-VIAJE: ";PV;" MILLONES"'"IMPUESTOS: ";
1 "Necesitamos una parte BASIC yuna rutina C/M que llame alsistema operativo. Su carga serealiza desde lineas DATA conun bucle FOR-NEXT.",""
1 "LINEAS INVISIBLES","La linea ya no aparece con<LIST> aunque permanezca ope-rativa.","- Llama con <EDIT> la linea aesconder;
1 "LET B=SGN 3+4","SI FALTAN LOS PARENTESIS, CADAFUNCION AFECTA UNICAMENTE ALARGUMENTO QUE LE SIGUE. ESTAEXPRESION, POR TANTO, NO ESVALIDA SGN (3+4), Y SI LO ES(SGN 3)+4, ES DECIR, <5>.",""
1 "LD A,2","Prepara el reg
1 "INPUT (MES);X","LA VARIABLE <MES> ESTA ENTREPARENTESIS. SU CONTENIDO SERA<IMPRESO> COMO MENSAJE EXPLI-CATIVO DE INPUT. <X> EN CAM-BIO ENTRARA DESDE EL TECLADO." ,""
1 "INICIO TOTAL","El Spectrum es inicializadoigual que en el encendido.","<NEW>, al afectar unicamenteal BASIC,no inicializa algunasvariables del sistema ni el a-rea de memoria por encima delRAMTOP (C/M,UDG).
1 "IMPRESION MULTIPLE (203C)","Ind. caracteres ---> DE Cuantos caract. ---> BC","Imprime el numero de caracte-res contenidos en <BC>, loca-lizados a partir de la direc-cion contenida en <DE>."
1 "HAS LLEGADO AL FINAL DEL ";G;"'"'"DIA."''''''"EL CAPITAL ES AHORA"'"DE VB
1 "HAS AGUANTADO HASTA ";G;"'"'"DIA Y..."'':
1 "EFECTUAREMOS UNA OPERACION DEIMPRESION EN PANTALLA PERO NOMEDIANTE <PRINT> SINO CON UN<CALL> A LA RUTINA EXISTENTEEN <ROM>.
1 "DESPLAZAMIENTOS DE LINEAS","Una linea <BASIC> puede sercopiada o desplazada.","Modificando el numero de unalinea, llamada con <EDIT>,produciras otra nueva e iden-tica.Borrando despues la anti-gua, obtendras el resultado dehaberla desplazado."
1 "DEF FN A(X)=X^2","LAS FUNCIONES DEFINIDAS POR ELUSUARIO CONSTITUYEN UN EXCE-LENTE MEDIO PARA SIMPLIFICARLOS PROGRAMAS Y MEJORAR SU LE-GIBILIDAD Y FUNCIONALIDAD.",""
1 "CUANTOS OBREROS CONTRATAS"'"(0 - ";
1 "CUANTOS ACRES COMPRAS (0 - ";
1 "CUANTO ? ";S:
1 "CUANTO (EN MILLONES 0 - 50) ?"'PV:
1 "CUANTAS HECTAREAS COMPRAS"'"(0 - ";
1 "CUAL ES EL PRECIO DE UNO DE TUS"'"SALONES ? (EN VB) ";PS
1 "CODIGOS INKEY$","Otros codigos ademas de losindicados en el manual.","CAP.SHIFT+...
1 "CANAL 5.......60....";T(
1 "C/M DENTRO DEL PROGRAMA BASIC","Un breve programa en C/M comoparte integrante del BASIC","-Prepara como primera instruc-cion una linea REM formada portantos puntos como lo sean losbytes requeridos por el C/M.
1 "BORRA LINEAS (OE44)","Lineas a borrar ---> B","Borra <B> lineas de la panta-lla partiendo desde abajo."
1 "BLOQUEO AUTOSTART","Evita el arranque automaticode programas guardados median-te LINE.","(El metodo solo es valido car-gando el programa desde unacinta):
1 "BLOQUEO <BREAK>","Realizando un <BREAK> (Capsshift+Space) bloquea al Spec-trum.","- Ejecuta <POKE 23659,0>.
1 "BIT 1.........30....";T(
1 "BIEN, "+N$,"
1 "ASIGNACION DE CANAL (1601)","N
1 "AHORA, "+N$,"TRANSFORMAREMOS EL ANALISISANTERIOR EN UN DIAGRAMA DEFLUJO Y SEGUIDAMENTE A INS-TRUCCIONES <BASIC>."
1 "AHORA TIENES ";(OP);" OBREROS, CUANTOS"'"OBREROS CONTRATAS (0 - ";
1 "<PAUSE 0> esperara la pre-sion de una tecla; RANDOMIZEUSR ..... llamara a la rutinaC/M que a su vez ejecutara unCALL al sistema operativo.","",""
1 "935","945 PROGRAMA","955","","9:3INTERPRETE","9;3","9<3 B A S I C","","9A1","9A1 SISTEMA","9B1","9C1 OPERATIVO",""
1 "9",U;" RAMTOP . . . . . . . . . . ";
1 "80","90","60","30","20","6":
1 "7";"ESTOY CARGANDO VIDEOTEST":
1 "6";"PULSA";
1 "6");"......"
1 "5E5"*AC+TR*
1 "5");"......"
1 "4E5"*(MS+SC)+
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "4",U;" - M E M O R I A R A M - ";
1 "4");"......"
1 "33315555355555122222"(i)," ":
1 "30000 06 65 LD A,65","30002 D7 RST 16","30004 201 RET"
1 "30")="&"):
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "3");"......"
1 "29","28","11","-62","-11","34","-6","-60","6","23","11","-46","-11","25"
1 "23617",u:
1 "23617",U:
1 "23295+I",
1 "2";"."'"(LOS DEMAS TRABAJAN EN LA FABRI-CA)"
1 "2");"......"
1 "1E6");" MILLONES"'"MOTOSIERRAS: ";MS'"SIERRAS CIRC.: ";SC'"HECT. DE BOSQUE: ";AC
1 "1E6");" MILLONES"'"INVERTIDOS EN MOTOSIERRAS, BOS-QUE, ETC..."
1 "1E6");" MILLONES"
1 "1E6")+" MILLONES":
1 "1E3";".000.
1 "1E3");"000."'''"
1 "1E3");"000."
1 "18",u," ":
1 "17";" CM: 30000",
1 "165-y*8":
1 "15",U;" - M E M O R I A R O M -"
1 "127-XL/2",
1 "123"-j/a,er+j/a*
1 "10";"VIDEOBASIC":
1 "10";"OTRA VEZ !":
1 "10";"ERROR !";
1 "1.4"+(PC-PS)/
1 "04>ESPERA ","#810","2>70
1 "042RESERVA ","#810","2210
1 ","QUE INSTRUCCION CONCLUYE","CADA SUBRUTINA EN LENGUAJE","<BASIC> ?",""
1 ","IMPRIME UN NUMERO AL AZAR","ENTRE <0> INCLUIDO","Y <1> EXCLUIDO.",""
1 "*1 ","% "
1 "(NO MAS DE 9)"
1 "'SC;" SIERRAS CIRCULARES.
1 "'MS;" MOTOSIERRAS.
1 "''''"ESTAS EN INFORMATOPOLIS Y TIENESLA OPORTUNIDAD DE ABRIR UNA EM-PRESA EN EL SECTOR DEL MUEBLE."''"EL JUEGO CONSISTE EN LLEVAR LAGESTION DE LA EMPRESA DURANTE UNMES."
1 "'"SI QUIERES COMPRAR MAS SU COSTEES DE 400.000 VB UNA."
1 "'"SI DESEAS ADQUIRIR MAS, SU COSTEES DE 400.000 VB UNA."
1 "'"AHORA GASTAS ";PV;" MILLONES AL"'"DIA."
1 ""SI""","SI <A> ES MAYOR O","IGUAL QUE 3,","ENTONCES IMPRIME <SI>.",""
1 "","","10 LET X=.....","20 RANDOMIZE USR 30000","30 FOR A=...."
1 "","","0032 ..............","0024 RUTINA DE CIERRE","0016 RUTINA DE IMPRESION","0008 RUTINA DE ERROR","0000 RUTINA DE INICIALIZACION"
1 " DRAW (24BA)","X ------> B Y ------> C dir. X--> D dir. Y--> E","Traza una linea a una distan-cia B,C desde la actual posi-cion del plot. La direccion esdada por <1>:positiva; <255>:negativa."
1 " UTILICEMOS EL "," SISTEMA OPERATIVO"
1 canal (0,1,2,3) --> A","Abre el canal al cual son en-viados hacia la salida todoslos datos. Es bastante pareci-do a <OPEN> en BASIC."
1 VUELTA LA PRINCIPIO";
1 VUELTA AL PRINCIPIO";
1 Tel.031-240.959
1 SOFTIDEA - (Como)
1 REPETIR";
1 QUE TRABAJAN"'"EN LA FABRICA Y TIENES
1 QUE TRA-BAJAN"'"EN EL BOSQUE. TIENES
1 PON EN MARCHA LA GRABADORA
1 NUEVO PERSONAL."'"UN OBRERO CUESTA 300.000 VB PORCONTRATO Y HAY QUE PAGARLE DIA-RIAMENTE A 8.000 VB LA HORA."
1 INTRODUCCION";
1 EJERCICIOS";
1 EJERCICIO"
1 COPYRIGHT 1985
1 CARGO EL VIDEOJUEGO";
1 CARGA LA";
1 ** ** ** ***********************
1 ** ** ** **
1 * * * ***********************
1 D A T A
1 Pon en marcha la grabadora
1 **
1 ":
1 *********************** ** ** **
1 ***********************
1 *********************** * * *
1
1
1
1